home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / makeup1.zip / MAKEUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-03-26  |  8KB  |  259 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING003
  21.     String   STRING004
  22.     String   STRING005
  23.     String   STRING006
  24.     String   STRING007
  25.     String   STRING008
  26.     String   STRING009
  27.     String   STRING010
  28.     String   STRING011
  29.     String   STRING012
  30.     String   STRING013
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     GetUser
  35.     If ((Psa(2) == 0) && (Psa(3) == 0)) Stop
  36.     If (((((((Strip(U_Addr(0), " ") == "") && (Strip(U_Addr(1), " ") == "")) || (Strip(U_Addr(2), " ") == "")) || (Strip(U_Addr(3), " ") == "")) || (Strip(U_Addr(4), " ") == "")) || (Strip(U_Addr(5), " ") == "")) || (Psa(2) && (Strip(U_Ver, " ") == ""))) Goto LABEL001
  37.     End
  38.     :LABEL001
  39.     Gosub LABEL002
  40.     STRING003 = ""
  41.     PrintLn "@CLS@@X60@POS:80@@X0F"
  42.     PrintLn "@X60  @X0F Date: @X0E@SYSDATE@@BOARDNAME:45C@@X0FTime: @X0E@SYSTIME@ ET @X60@POS:80@@X0F"
  43.     PrintLn "@X60  @X0F Carrier:@X0E@CARRIER:6R@@X0A               Login Interrupt               @X0FTime Left:@X0E@MINLEFT:4R@ @X60@POS:80@@X0F"
  44.     PrintLn "@X60@POS:80@@X0F"
  45.     Newline
  46.     PrintLn "  Your registration is incomplete.  Please complete your @X0EAddress Information@X0F."
  47.     Newline
  48.     PrintLn "         @X0AA @X0FLine 1, Street (Mail) Address   @X0AD @X0FProvince or State"
  49.     PrintLn "         @X0AB @X0FLine 2, Street (Mail) Address   @X0AE @X0FPostal/Zipcode"
  50.     PrintLn "         @X0AC @X0FCity, Town or Village           @X0AF @X0FCountry, Nation or Region"
  51.     If (Psa(2) <> 0) Then
  52.         PrintLn "         @G @X0FVerification Information           @X0AQ @X0FQuit and Save Corrections"
  53.         STRING005 = "abcdefgqABCDEFGQ"
  54.     Else
  55.         PrintLn "                          @X0AQ @X0FQuit and Save Corrections"
  56.         STRING005 = "abcdefqABCDEFQ"
  57.     Endif
  58.     PrintLn "         @X06┌───────────────────────────────────────────────────────────┐"
  59.     PrintLn "         @X06│ @X0AA @X0F=   @X0E" + STRING007 + "@POS:70@@X06│"
  60.     PrintLn "         @X06│ @X0AB @X0F=   @X0E" + STRING008 + "@POS:70@@X06│"
  61.     PrintLn "         @X06│ @X0AC @X0F=   @X0E" + STRING009 + "@POS:46@@X0AE @X0F= @X0E" + STRING011 + "@POS:70@@X06│"
  62.     PrintLn "         @X06│ @X0AD @X0F=   @X0E" + STRING010 + "@POS:46@@X0AF @X0F= @X0E" + STRING012 + "@POS:70@@X06│"
  63.     If (Psa(2) <> 0) Then
  64.         PrintLn "         @X06│ @X0AG @X0F=   @X0E" + STRING013 + "@POS:46@@X0F<-- WILL NOT ECHO" + "@POS:70@@X06│"
  65.         PrintLn "         @X06└───────────────────────────────────────────────────────────┘"
  66.     Else
  67.         PrintLn "         @X06└───────────────────────────────────────────────────────────┘"
  68.     Endif
  69.     InputStr "@X0FWhich field would you like to revise@X0A", STRING003, 14, 1, STRING005, 2 + 4 + 8 + 128 + 32
  70.     If (STRING003 == "A") Gosub LABEL003
  71.     If (STRING003 == "B") Gosub LABEL004
  72.     If (STRING003 == "C") Gosub LABEL005
  73.     If (STRING003 == "D") Gosub LABEL006
  74.     If (STRING003 == "E") Gosub LABEL007
  75.     If (STRING003 == "F") Gosub LABEL008
  76.     If ((STRING003 == "G") && Psa(2)) Gosub LABEL009
  77.     If (STRING003 == "Q") Goto LABEL010
  78.     If (STRING003 == "") Goto LABEL010
  79.     Goto LABEL001
  80.     :LABEL002
  81.     STRING007 = Left(RTrim(U_Addr(0), Chr(32)) + "·················································", 49)
  82.     STRING008 = Left(RTrim(U_Addr(1), Chr(32)) + "·················································", 49)
  83.     STRING009 = Left(RTrim(U_Addr(2), Chr(32)) + "·························", 25)
  84.     STRING010 = Left(RTrim(U_Addr(3), Chr(32)) + "·························", 25)
  85.     STRING011 = Left(RTrim(U_Addr(4), Chr(32)) + "···············", 15)
  86.     STRING012 = Left(RTrim(U_Addr(5), Chr(32)) + "···············", 15)
  87.     STRING013 = Left(RTrim(U_Ver, Chr(32)) + "·························", 25)
  88.     For INTEGER001 = 1 To Len(U_Ver)
  89.         STRING013 = Replace(STRING013, Mid(STRING013, INTEGER001, 1), "*")
  90.     Next
  91.     Return
  92.     :LABEL003
  93.     If (Exist(PPEPath() + "makeupA")) DispFile PPEPath() + "makeupA", 4 + 2 + 1
  94.     InputStr "@X0FLine 1, Street (Mail) Address@X0A", U_Addr(0), 14, 50, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  95.     Return
  96.     :LABEL004
  97.     If (Exist(PPEPath() + "makeupB")) DispFile PPEPath() + "makeupB", 4 + 2 + 1
  98.     InputStr "@X0FLine 2, Street (Mail) Address@X0A", U_Addr(1), 14, 50, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  99.     Return
  100.     :LABEL005
  101.     If (Exist(PPEPath() + "makeupC")) DispFile PPEPath() + "makeupC", 4 + 2 + 1
  102.     InputStr "@X0FCity, Town or Village@X0A", U_Addr(2), 14, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  103.     Return
  104.     :LABEL006
  105.     If (Exist(PPEPath() + "makeupD")) DispFile PPEPath() + "makeupD", 4 + 2 + 1
  106.     InputStr "@X0FProvince or State@X0A", U_Addr(3), 14, 10, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  107.     Return
  108.     :LABEL007
  109.     If (Exist(PPEPath() + "makeupE")) DispFile PPEPath() + "makeupE", 4 + 2 + 1
  110.     InputStr "@X0FPostal/Zipcode@X0A", U_Addr(4), 14, 10, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  111.     Return
  112.     :LABEL008
  113.     If (Exist(PPEPath() + "makeupF")) DispFile PPEPath() + "makeupF", 4 + 2 + 1
  114.     InputStr "@X0FCountry, Nation or Region@X0A", U_Addr(5), 14, 15, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128
  115.     Return
  116.     :LABEL009
  117.     If (Replace(Trim(Strip(U_Ver, Chr(255)), " "), Chr(255), " ") <> "") Then
  118.         Newline
  119.         PrintLn "        @X0EIf you need to change or alter this field, you must first enter"
  120.         PrintLn "               the information exactly like it was first entered."
  121.         PromptStr 707, STRING006, 25, Mask_Alpha() + Mask_Num() + Mask_Ascii(), 2 + 4 + 8 + 128 + 256 + 64
  122.         If (STRING006 == U_Ver) Then
  123.             If (Exist(PPEPath() + "makeupG")) DispFile PPEPath() + "makeupG", 4 + 2 + 1
  124.             PromptStr 706, U_Ver, 25, Mask_Ascii(), 2 + 4 + 8 + 128 + 256
  125.         ElseIf (STRING006 <> "") Then
  126.             PrintLn "        @X0FSorry, the User Verification Information you just entered, does"
  127.             PrintLn "               @X0ENOT @X0Fmatch the information you previuosly entered."
  128.             Newline
  129.             Wait
  130.         Endif
  131.     Else
  132.         If (Replace(Trim(Strip(U_Ver, Chr(255)), " "), Chr(255), " ") == "") Then
  133.             If (Exist(PPEPath() + "makeupG")) DispFile PPEPath() + "makeupG", 4 + 2 + 1
  134.             PromptStr 706, U_Ver, 25, Mask_Ascii(), 2 + 4 + 8 + 128
  135.         Endif
  136.     Endif
  137.     Return
  138.     :LABEL010
  139.     If (((((((Strip(U_Addr(0), " ") == "") && (Strip(U_Addr(1), " ") == "")) || (Strip(U_Addr(2), " ") == "")) || (Strip(U_Addr(3), " ") == "")) || (Strip(U_Addr(4), " ") == "")) || (Strip(U_Addr(5), " ") == "")) || (Psa(2) && (Strip(U_Ver, " ") == ""))) Goto LABEL011
  140.     Cls
  141.     Newline
  142.     PrintLn "           @X0FThanks for taking the time to complete your registration."
  143.     PrintLn "  This information will enable us to automate the completion of order forms"
  144.     PrintLn "           and other registrations that you may select while online."
  145.     PrintLn 
  146.     PrintLn "         If you need to update your address information in the future,"
  147.     PrintLn "                      go to the @X0EUSER @X0FMenu and select ""@X0AW@X0F""."
  148.     Newline
  149.     Log "User updated his address information via MAKEUP.PPE", 0
  150.     DispText 273, 256 + 2048
  151.     Newline
  152.     PutUser
  153.     Wait
  154.     End
  155.     :LABEL011
  156.     STRING004 = Upper(NoChar())
  157.     Cls
  158.     Newline
  159.     PrintLn "           @X0EThe following fields are still empty and need to filled:"
  160.     Newline
  161.     If ((Strip(U_Addr(0), " ") == "") && (Strip(U_Addr(1), " ") == "")) PrintLn "                          @X0AA@X0F @X0FLine 1, Street (Mail) Address"
  162.     If (Strip(U_Addr(2), " ") == "") PrintLn "                          @X0AC@X0F City, Town or Village"
  163.     If (Strip(U_Addr(3), " ") == "") PrintLn "                          @X0AD@X0F Province or State"
  164.     If (Strip(U_Addr(4), " ") == "") PrintLn "                          @X0AE@X0F Postal/Zipcode"
  165.     If (Strip(U_Addr(5), " ") == "") PrintLn "                          @X0AF@X0F Country, Nation or Region"
  166.     If (Psa(2) && (Strip(U_Ver, " ") == "")) PrintLn "                          @X0AG@X0F Verification Information"
  167.     Newline
  168.     PrintLn "                    @X0FWe apologize for the inconvenience, but"
  169.     PrintLn "         you @X0EMUST @X0Fprovide the above information in order to continue."
  170.     Newline
  171.     InputYN "@X0FWould you rather logoff (@X0Ay@X0F/@X0AN@X0F)@X0A", STRING004, 10
  172.     If (Upper(Left(STRING004, 1)) == YesChar()) Then
  173.         Log "User refused to complete registration with address info via MAKEUP.PPE.", 0
  174.     Else
  175.         Goto LABEL001
  176.     Endif
  177.     PutUser
  178.     Bye
  179.     End
  180.  
  181. ;------------------------------------------------------------------------------
  182. ;
  183. ; Usage report (before postprocessing)
  184. ;
  185. ; ■ Statements used :
  186. ;
  187. ;    3       End
  188. ;    2       Cls
  189. ;    2       Wait
  190. ;    20      Goto 
  191. ;    14      Let 
  192. ;    37      PrintLn 
  193. ;    34      If 
  194. ;    8       DispFile 
  195. ;    1       GetUser
  196. ;    2       PutUser
  197. ;    2       Log 
  198. ;    7       InputStr 
  199. ;    1       InputYN 
  200. ;    8       Gosub 
  201. ;    8       Return
  202. ;    3       PromptStr 
  203. ;    11      Newline
  204. ;    1       DispText 
  205. ;    1       Stop
  206. ;    1       Bye
  207. ;
  208. ;
  209. ; ■ Functions used :
  210. ;
  211. ;    104     +
  212. ;    35      ==
  213. ;    4       <>
  214. ;    1       <
  215. ;    1       <=
  216. ;    2       >=
  217. ;    8       !
  218. ;    10      &&
  219. ;    11      ||
  220. ;    2       Len(
  221. ;    2       Upper()
  222. ;    1       Mid()
  223. ;    8       Left()
  224. ;    11      Chr()
  225. ;    7       RTrim()
  226. ;    2       Trim()
  227. ;    1       NoChar()
  228. ;    1       YesChar()
  229. ;    3       Replace()
  230. ;    23      Strip()
  231. ;    7       Mask_Alpha()
  232. ;    7       Mask_Num()
  233. ;    9       Mask_Ascii()
  234. ;    16      PPEPath()
  235. ;    8       Exist()
  236. ;    8       Psa()
  237. ;
  238. ;------------------------------------------------------------------------------
  239. ;
  240. ; Analysis flags : W
  241. ;
  242. ; W - Write user ■ 5
  243. ;     Program writes a user record. Although this may be normal for a
  244. ;     User Editor, it may also be a way to modify an account level.
  245. ;     ■ Search for : PUTUSER
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Postprocessing report
  250. ;
  251. ;    1       For/Next
  252. ;    0       While/EndWhile
  253. ;    7       If/Then or If/Then/Else
  254. ;    0       Select Case
  255. ;
  256. ;------------------------------------------------------------------------------
  257. ;                 AEGiS Corp - Break the routines, code against the machines!
  258. ;------------------------------------------------------------------------------
  259.